perm filename AAM.LAP[TIM,LSP] blob
sn#662426 filedate 1982-05-29 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00007 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00008 00004
C00009 00005
C00011 00006
C00022 00007
C00023 ENDMK
C⊗;
'(THIS IS THE LAP FOR ((DSK (TIM LSP)) AAM LSP))
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON MAY 29, 1982, AT 3:04 AM
(SETQ BASE 10 IBASE 10)
(ARRAY BOARD FIXNUM 16)
(ARRAY SEQUENCE FIXNUM 14)
(ARRAY A FIXNUM 37)
(ARRAY B FIXNUM 37)
(ARRAY C FIXNUM 37)
(FILLARRAY 'BOARD '(-1))
(STORE (BOARD 5) 0)
(FILLARRAY 'A '(1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4 4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6))
(FILLARRAY 'B '(2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5 2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5))
(FILLARRAY 'C '(4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6 1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4))
(LAP LAST-POSITION SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS LAST-POSITION (() . 0.))
(PUSH FXP (% 0.))
(PUSH P (% 0. 0. '1.))
G0002
(MOVE 7. @ 0. P)
(CAIE 7. 16.)
(JRST 0. G0004)
(MOVEI 1. '0.)
(JRST 0. G0006)
G0004
(MOVE 7. @ 0. P)
(MOVE 7. @ (ARRAY BOARD))
(SOJN 7. G0007)
(MOVE 1. 0. P)
(JSP T PDLNMK)
(JRST 0. G0006)
G0007
(MOVE 7. @ 0. P)
(ADDI 7. 1.)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. 0. P)
(JRST 0. G0002)
G0006
(SUB P (% 0. 0. 1. 1.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP TRY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS TRY (() . 2.))
(PUSH FXP (% 0.))
(PUSH FXP (% 0.))
(PUSH P 1.)
(PUSH P 2.)
(MOVE 7. 0. 2.)
(CAIE 7. 14.)
(JRST 0. G0007)
(CALL 0. 'LAST-POSITION)
(PUSH P 1.)
(MOVE 2. (SPECIAL FINAL))
(CALL 2. 'MEMBER)
(JUMPN 1. G0009)
(MOVE 2. (SPECIAL FINAL))
(MOVE 1. 0. P)
(JSP T %CONS)
(MOVEM 1. (SPECIAL FINAL))
G0009
(SUB P (% 0. 0. 1. 1.))
(MOVEI T G0013)
(PUSH P T)
(PUSH P (% 0. 0. 'SEQUENCE))
(MOVNI T 1.)
(JCALL 14. 'LISTARRAY)
G0013
(MOVE 2. (SPECIAL ANSWER))
(HRRZ 1. 0. 1.)
(JSP T %CONS)
(MOVEM 1. (SPECIAL ANSWER))
(MOVEI 1. 'T)
(JRST 0. G0006)
G0007
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY A))
(MOVE 7. @ (ARRAY BOARD))
(AOJN 7. G0017)
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY B))
(MOVE 7. @ (ARRAY BOARD))
(AOJN 7. G0017)
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY C))
(MOVE 7. @ (ARRAY BOARD))
(JUMPN 7. G0017)
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY A))
(SETZM 0. @ (ARRAY BOARD))
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY B))
(SETZM 0. @ (ARRAY BOARD))
(MOVE 7. 0. 1.)
(MOVE 7. @ (ARRAY C))
(SETOM 0. @ (ARRAY BOARD))
(MOVE 7. 0. 2.)
(MOVE 8. 0. 1.)
(MOVEM 8. @ (ARRAY SEQUENCE))
(MOVE 7. 0. 2.)
(ADDI 7. 1.)
(PUSH P (% 0. 0. '0.))
(MOVEM 7. -1. FXP)
(MOVEI 5. -1. FXP)
(PUSH P 5.)
G0004
(MOVE 7. @ -1. P)
(CAIN 7. 36.)
(JRST 0. G0042)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. 'TRY)
(JUMPN 1. G0042)
(MOVE 7. @ -1. P)
(ADDI 7. 1.)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. -1. P)
(JRST 0. G0004)
G0042
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. @ -1. P)
(MOVE 7. @ (ARRAY A))
(MOVEI 8. 1.)
(MOVEM 8. @ (ARRAY BOARD))
(MOVE 7. @ -1. P)
(MOVE 7. @ (ARRAY B))
(MOVEI 8. 1.)
(MOVEM 8. @ (ARRAY BOARD))
(MOVE 7. @ -1. P)
(MOVE 7. @ (ARRAY C))
(MOVEI 8. 0.)
(MOVEM 8. @ (ARRAY BOARD))
(TDZA 1. 1.)
G0017
(MOVEI 1. '() )
G0006
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP GOGOGO SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS GOGOGO (() . 1.))
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL ANSWER))
(0. 0. (SPECIAL FINAL))
(MOVEI 2. '1.)
(CALL 2. 'TRY)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. UNBIND)
()
(LAP PRINT-ANSWER SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS PRINT-ANSWER (() . 1.))
(JSP T PDLNMK)
(PUSH P 1.)
G0003
(SKIPE 0. 0. P)
(JRST 0. G0005)
(MOVEI 1. 'DONE)
(JRST 0. G0007)
G0005
(HLRZ 7. @ 0. P)
(MOVE 7. 0. 7.)
(MOVE 7. @ (ARRAY A))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(MOVEI 1. '9.)
(CALL 1. '*TYO)
(HLRZ 7. @ 0. P)
(MOVE 7. 0. 7.)
(MOVE 7. @ (ARRAY B))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(MOVEI 1. '9.)
(CALL 1. '*TYO)
(HLRZ 7. @ 0. P)
(MOVE 7. 0. 7.)
(MOVE 7. @ (ARRAY C))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(SUB FXP (% 0. 0. 3. 3.))
(JRST 0. G0003)
G0007
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(*RSET (NOUUO () ))
(LAP TIMIT SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS TIMIT (() . 0.))
(JSP T (0PUSH -5.))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1. '(DATE))
(CALL 15. 'STATUS)
(PUSH P 1.)
(MOVEI 1. '(DOW))
(CALL 15. 'STATUS)
(CALL 1. 'EXPLODEN)
(PUSH P 1.)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0.))
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(HRRZ 1. @ -1. P)
(PUSH P 1.)
(MOVEI 1. '/a)
(CALL 1. 'EXPLODEN)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(MOVEI 1. 'A)
(CALL 1. 'EXPLODEN)
(MOVE 7. @ 0. P)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(SUB 7. 8.)
(MOVEM 7. 0. FXP)
(MOVEI 5. 0. FXP)
(PUSH P (% 0. 0. '() ))
(PUSH P 5.)
G0004
(SKIPE 0. -3. P)
(JRST 0. G0026)
(MOVE 1. -1. P)
(CALL 1. 'NREVERSE)
(JRST 0. G0029)
G0026
(MOVE 7. @ 0. P)
(HLRZ 8. @ -3. P)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVE 2. -1. P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2. @ -3. P)
(MOVEM 1. -1. P)
(MOVEM 2. -3. P)
(JRST 0. G0004)
G0029
(SUB P (% 0. 0. 4. 4.))
(POP P 2.)
(JSP T %XCONS)
(SUB P (% 0. 0. 1. 1.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSH P 1.)
(PUSH P (% 0. 0. '(| |)))
(HRRZ 7. @ -4. P)
(HLRZ 7. 0. 7.)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '(//)))
(HRRZ 7. @ -6. P)
(HRRZ 7. 0. 7.)
(HLRZ 7. 0. 7.)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '(//)))
(HLRZ 7. @ -8. P)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(MOVNI T 7.)
(JCALL 14. 'APPEND)
G0018
(CALL 1. 'IMPLODE)
(SUB P (% 0. 0. 2. 2.))
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT | ↑!↑4 !|))
(MOVEI 1. '(DAYTIME))
(CALL 15. 'STATUS)
(PUSH P 1.)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '(:)))
(HRRZ 7. @ -3. P)
(HLRZ 7. 0. 7.)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '(:)))
(HRRZ 7. @ -5. P)
(HRRZ 7. 0. 7.)
(HLRZ 7. 0. 7.)
(MOVE 7. 0. 7.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. 0. FXP)
(IDIVI 7. 10.)
(HLRZ 8. 0. 1.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEI 1. '/0)
(PUSH FXP 7.)
(CALL 1. 'EXPLODEN)
(MOVE 7. -1. FXP)
(IDIVI 7. 10.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(ADD 7. 8.)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2. 0. FXP)
(JSP T %PDLXC)
(SUB FXP (% 0. 0. 2. 2.))
(PUSH P 1.)
(MOVNI T 5.)
(JCALL 14. 'APPEND)
G0076
(CALL 1. 'IMPLODE)
(SUB P (% 0. 0. 1. 1.))
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT |.!|))
(NCALL 0. 'RUNTIME)
(MOVEM 7. -4. FXP)
(CALL 0. 'DTIME)
(PUSH P 1.)
(CALL 0. 'TTIME)
(PUSH P 1.)
(MOVEI 1. '(GCTIME))
(CALL 15. 'STATUS)
(PUSH P 1.)
(CALL 0. 'LOADAV)
(MOVEI 5. -4. FXP)
(PUSH P (% 0. 0. '0.))
(PUSH P 1.)
(MOVEI 1. '22.)
(PUSH P 5.)
(CALL 1. 'GOGOGO)
(NCALL 0. 'RUNTIME)
(SUB 7. @ 0. P)
(MOVEM 7. -3. FXP)
(MOVEI 1. -3. FXP)
(MOVEM 1. 0. P)
(CALL 0. 'DTIME)
(MOVE 7. 0. 1.)
(SUB 7. @ -5. P)
(MOVEM 7. -2. FXP)
(MOVEI 1. -2. FXP)
(MOVEM 1. -5. P)
(CALL 0. 'TTIME)
(MOVE 7. 0. 1.)
(SUB 7. @ -4. P)
(MOVEM 7. -1. FXP)
(MOVEI 1. -1. FXP)
(MOVEM 1. -4. P)
(MOVEI 1. '(GCTIME))
(CALL 15. 'STATUS)
(MOVE 7. 0. 1.)
(SUB 7. @ -3. P)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. -3. P)
(CALL 0. 'LOADAV)
(MOVEM 1. -2. P)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7. @ 0. P)
(SUB 7. @ -3. P)
(JSP T IFLOAT)
(IDIV 7. (% 1000000.0))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7. @ -5. P)
(JSP T IFLOAT)
(IDIV 7. (% 60.0))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7. @ -4. P)
(JSP T IFLOAT)
(FDVRI 7. 69088.)
(PUSH FLP 7.)
(MOVEI 1. 0. FLP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7. @ -3. P)
(JSP T IFLOAT)
(FDVR 7. (% 1000000.0))
(PUSH FLP 7.)
(MOVEI 1. 0. FLP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1. -1. P)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1. -2. P)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7. @ -2. P)
(FADR 7. @ -1. P)
(FSC 7. -1.)
(PUSH FLP 7.)
(MOVEI 1. 0. FLP)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(SUB P (% 0. 0. 6. 6.))
(SUB FLP (% 0. 0. 3. 3.))
(SUB FXP (% 0. 0. 7. 7.))
(POPJ P)
()